home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / being there / Issues & Ideas / Anonymous remailers / Remailers / dosbat Folder / HOPMAIL.BAT < prev    next >
DOS Batch File  |  1993-07-14  |  4KB  |  152 lines
  1. @echo off
  2. rem hopmail.bat - allows routing a message through various remailers
  3. rem extropia not supported just yet - see hopsend.bat
  4. rem Karl Barrus - elee9sf@menudo.uh.edu
  5. rem last update 7/14/93
  6.  
  7. rem if no parameters, print help file
  8. if '%1'=='' goto help
  9.  
  10. rem get file name
  11. shift
  12. set filename=%0
  13. if not exist %filename% goto errnofile
  14.  
  15. rem check mode
  16. shift
  17. set mode=0
  18. if '%0'=='1' set mode=1
  19. if '%0'=='2' set mode=2
  20. if '%mode%'=='0' goto errmode
  21.  
  22. rem set up encrypted pgp header
  23. echo :: > zzztemp1.txt
  24. echo Encrypted: PGP >> zzztemp1.txt
  25. echo. >> zzztemp1.txt
  26.  
  27. rem create null message
  28. echo. > zzztemp3.txt
  29.  
  30. rem get email address
  31. shift
  32. set to=%0
  33. if '%to%'=='' goto errmail
  34.  
  35. :repeat
  36. shift
  37. if '%0'=='' goto finish
  38.  
  39. if '%0'=='1'  set rto=nowhere@bsu-cs.bsu.edu
  40. if '%0'=='2'  set rto=hh@cicada.berkeley.edu
  41. if '%0'=='3'  set rto=hh@pmantis.berkeley.edu
  42. if '%0'=='4'  set rto=hh@soda.berkeley.edu
  43. if '%0'=='5'  set rto=00x@uclink.berkeley.edu
  44. if '%0'=='6'  set rto=hal@alumni.caltech.edu
  45. if '%0'=='7'  set rto=ebrandt@jarthur.claremont.edu
  46. if '%0'=='8'  set rto=phantom@mead.u.washington.edu
  47. if '%0'=='9'  set rto=remailer@rebma.mn.org
  48. if '%0'=='10' set rto=elee7h5@rosebud.ee.uh.edu
  49. if '%0'=='11' set rto=hfinney@shell.portal.com
  50. if '%0'=='12' set rto=remail@tamaix.tamu.edu
  51. if '%0'=='13' set rto=remail@tamsun.tamu.edu
  52. if '%0'=='14' set rto=remailer@utter.dis.org
  53. if '%0'=='15' set rto=remail@entropy.linet.org
  54.  
  55. rem set up remailing request header
  56. echo :: > zzztemp2.txt
  57. echo Request-Remailing-To: %to% >> zzztemp2.txt
  58. echo. >> zzztemp2.txt
  59.  
  60. rem append previous message
  61. copy zzztemp2.txt + zzztemp3.txt zzztemp4.txt > nul
  62. del zzztemp2.txt
  63. rename zzztemp4.txt zzztemp2.txt
  64.  
  65. if '%0'=='1' goto none
  66. if '%0'=='2' goto none
  67. if '%0'=='3' goto none
  68. if '%0'=='4' goto none
  69. if '%0'=='5' goto none
  70.  
  71. pgp -ea zzztemp2.txt %rto% > nul
  72. copy zzztemp1.txt + zzztemp2.asc zzztemp3.txt > nul
  73. goto next
  74.  
  75. :none
  76. copy zzztemp2.txt zzztemp3.txt > nul
  77.  
  78. :next
  79. set to=%rto%
  80.  
  81. goto repeat
  82.  
  83. :finish
  84. if '%mode%'=='1' goto incmessage
  85.  
  86. rem append, user chose create to receive
  87. echo -----cut here---- >> %filename%
  88. copy %filename% + zzztemp3.txt  zzztemp4.txt > nul
  89. echo. >> zzztemp4.txt
  90. echo To reply, save everything below the cut here marks >> zzztemp4.txt
  91. echo Type your reply below the blank line two lines above >> zzztemp4.txt
  92. echo Mail resultant file to %to% >> zzztemp4.txt
  93. del %filename%
  94. rename zzztemp4.txt %filename%
  95. goto done
  96.  
  97. :incmessage
  98. rem user chose create header to send
  99. copy zzztemp3.txt + %filename% zzztemp4.txt > nul
  100. del %filename%
  101. rename zzztemp4.txt %filename%
  102. echo Remember to mail %filename% to %to% 
  103.  
  104. goto done
  105.  
  106. :help
  107. echo Usage: hopmail filename mode address remailer# [remailer#]...
  108. echo Mode:
  109. echo 1: Mail a file via anonymous remailers
  110. echo 2: Create a remailing header and append to a file
  111. echo.
  112. echo Address:
  113. echo for mode 1, destination address
  114. echo for mode 2, your address
  115. echo.
  116. echo Remailers:
  117. echo  1: nowhere@bsu-cs.bsu.edu
  118. echo  2: hh@cicada.berkeley.edu
  119. echo  3: hh@pmantis.berkeley.edu
  120. echo  4: hh@soda.berkeley.edu
  121. echo  5: 00x@uclink.berkeley.edu
  122. echo  6: hal@alumni.caltech.edu
  123. echo  7: ebrandt@jarthur.claremont.edu
  124. echo  8: phantom@mead.u.washington.edu
  125. echo  9: remailer@rebma.mn.org
  126. echo 10: elee7h5@rosebud.ee.uh.edu
  127. echo 11: hfinney@shell.portal.com
  128. echo 12: remail@tamaix.tamu.edu
  129. echo 13: remail@tamsun.tamu.edu
  130. echo 14: remailer@utter.dis.org
  131. echo 15: remail@entropy.linet.org
  132. rem echo 16: remail@extropia.wimsey.com
  133. goto end
  134.  
  135. :errmode
  136. echo Error: mode must be 1 or 2
  137. goto end
  138.  
  139. :errmail
  140. echo Error: no destination specified
  141. goto done
  142.  
  143. :errnofile
  144. echo Error: file %filename% does not exist
  145. goto end
  146.  
  147. :done
  148. del zzz*.*
  149.  
  150. :end
  151.  
  152.